home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun: Productivity Pak 1 / rerun-productivity-pak-i.d64 / screen print 2 (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  1KB  |  26 lines
  1. 10 data173,148,192,72,169,4,141,148,192,32,143,192,1606
  2. 20 data104,141,148,192,32,233,193,24,169,64,109,187,1596
  3. 30 data193,141,217,193,169,0,133,253,173,99,198,133,1902
  4. 40 data254,169,198,133,252,169,179,133,251,24,173,187,2122
  5. 50 data193,101,251,133,251,169,25,141,184,193,169,40,1850
  6. 60 data141,186,193,160,7,177,253,153,188,193,136,16,1803
  7. 70 data248,160,8,140,185,193,169,0,162,0,10,30,1305
  8. 80 data188,193,105,0,232,224,8,208,245,160,0,145,1708
  9. 90 data251,230,251,208,2,230,252,206,185,193,208,226,2442
  10. 100 data24,165,253,105,8,133,253,144,2,230,254,206,1777
  11. 110 data186,193,208,195,32,196,193,169,198,133,252,169,2124
  12. 120 data179,133,251,24,173,187,193,101,251,133,251,206,2082
  13. 130 data184,193,208,166,32,204,255,169,4,76,195,255,1941
  14. 140 data0,0,0,9,0,0,0,0,0,0,0,255,264
  15. 200 sa=49436:be=sa:l=10:nl=14
  16. 210 print"loading...":print
  17. 220 fori=1tonl:cs=0
  18. 230 forj=0to11:readk:ifk>255then300
  19. 240 pokesa+j,k:cs=cs+k:next
  20. 250 readlt:iflt<>csthen300
  21. 260 sa=sa+12:l=l+10:next
  22. 270 printchr$(17)spc(6)"hires special printer routine"
  23. 280 printchr$(17)spc(15)"installed"
  24. 290 new
  25. 300 print"error in data statement #";l
  26.